From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 14 Oct 2002 01:32:25 +0000 (+0000)
Subject: (autoload-print-form): Cleanup.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~30187
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=a55b3d2c415350f5dfcc2847ab7aa8bf79e890db;p=emacs.git

(autoload-print-form): Cleanup.
---

diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el
index 27b24e64210..3b6e7d46bdb 100644
--- a/lisp/emacs-lisp/autoload.el
+++ b/lisp/emacs-lisp/autoload.el
@@ -184,10 +184,9 @@ markers before we call `read'."
 	    (princ "\n(" outbuf)
 	    (let ((print-escape-newlines t)
 		  (print-escape-nonascii t))
-	      (mapcar (lambda (elt)
-			(prin1 elt outbuf)
-			(princ " " outbuf))
-		      form))
+	      (dolist (elt form)
+		(prin1 elt outbuf)
+		(princ " " outbuf)))
 	    (princ "\"\\\n" outbuf)
 	    (let ((begin (with-current-buffer outbuf (point))))
 	      (princ (substring (prin1-to-string (car elt)) 1)